
    1   .LIF
 1000  *SAVE TWIRLERS
 1010  *--------------------------------
 1020  T
 1030  .1     TXA
 1040         AND #3
 1050         TAX
 1055         LDA CHARS,X
 1060         JSR FILL
 1070         INX
 1075         LDA #180
 1080         JSR $FCA8
 1090         LDA $C000
 1100         BPL .1
 1110         STA $C010
 1120         RTS
 1130  CHARS  .HS A1AFADDC
 1140  *--------------------------------
 1150  FILL   LDY #4
 1160         STY 1
 1170         STY 2
 1180         LDY #0
 1190         STY 0
 1200  .1     STA (0),Y
 1210         INY
 1220         BNE .1
 1230         INC 1
 1240         DEC 2
 1250         BNE .1
 1260         RTS
 1270  *--------------------------------

